home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 006 / 123.txt < prev    next >
Encoding:
Text File  |  1986-03-03  |  2.1 KB  |  47 lines
  1. 5  'copy this program to 123.BAS  then run BASIC 123
  2. 10 'program to print codes for the Epson series Printers
  3. 20 ' to be used in individual cells in Lotus 1-2-3
  4. 30 '
  5. 40 X$="text"
  6. 50 E$= CHR$(27)   :     CTRLO$=CHR$(15)     : CTRLR$=CHR$(18)
  7. 60 ZERO$=CHR$(0)  :     ONE$=CHR$(1)        : TWO$=CHR$(2)
  8. 70 THREE$=CHR$(3) :     FOUR$=CHR$(4)       : FIVE$=CHR$(5)
  9. 80 SIX$=CHR$(6)   :     SEVEN$=CHR$(7)      : EIGHT$=CHR$(8)
  10. 90 '
  11. 100 'TO USE IN 123, SUBSTITUTE TEXT FOR TEXT
  12. 110 '
  13. 120 CON$   = CTRLO$        +X$       +CTRLR$          'CONDENSED ON,OFF
  14. 130 WIDE$  = E$  +"W1"     +X$       +E$  +"WO"       'WIDE ON, OFF
  15. 140 EMPH$  = E$  +"E"      +X$       +E$  +"F"        'EMPHASIZED ON, OFF
  16. 150 DOUBLE$= E$  +"G"      +X$       +E$  +"H"        'DOUBLE STRIKE ON,OFF
  17. 160 ITALIC$= E$  +"4"      +X$       +E$  +"5"        'ITALIC ON, OFF
  18. 170 UNDER$ = E$  +"-1"     +X$       +E$  +"-0"       'UNDERLINE ON, OFF
  19. 180 SUPER$ = E$  +"SO"     +X$       +E$  +"T"        'SUPERSCRIPT ON, OFF
  20. 190 SUB$   = E$  +"S1"     +X$       +E$  +"T"        'SUBSCRIPT ON, OFF
  21. 200 ELITE$ = E$  +"M"      +X$       +E$  +"P"        'ELITE ON, OFF
  22. 210 ESCS$  = E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$      'ESCAPES
  23. 220 CONESCS$ =CTRLO$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+CRTLR$
  24. 230 '                                                 'CONDENSED + ESCAPES
  25. 240 '
  26. 250 BACK$ = EIGHT$                                    'BACKSPACE 1 CHARACTER
  27. 260 MANYBACK$ =EIGHT$+EIGHT$+EIGHT$+EIGHT$+EIGHT$     'BACKSPACE MANY CHARACTERS
  28. 270 BELL$ = SEVEN$
  29. 280 FILE$ ="A:123PRINT.PRN"
  30. 290 OPEN FILE$ FOR OUTPUT AS #1
  31. 300 WRITE #1,CON$,"CONDENSED"
  32. 310 WRITE #1,WIDE$,"WIDE"
  33. 320 WRITE #1,EMPH$,"EMPHASIZED"
  34. 330 WRITE #1,DOUBLE$,"DOUBLE STRIKE"
  35. 340 WRITE #1,ITALIC$,"ITALICS"
  36. 350 WRITE #1,UNDER$,"UNDELINE"
  37. 360 WRITE #1,SUPER$,"SUPERSCRIPT"
  38. 370 WRITE #1,SUB$,"SUBSCRIPT"
  39. 380 WRITE #1,ELITE$,"ELITE PRINT"
  40. 390 WRITE #1,ESCS$,"ESCAPES"
  41. 400 WRITE #1,CONESCS$,"CONDENSED + ESCAPES"
  42. 410 WRITE #1,BACK$,"BACKSPACE"
  43. 420 WRITE #1,BELL$,"BELL"
  44. 430 WRITE #1,MANYBACK$,"SEVERAL BACKSPACES"
  45. 440 CLOSE
  46. 450 END
  47. 460 ' To use /F ile /I mport /N umbers  123PRINT.PRN